home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / wc_DrawingA.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  6.9 KB  |  171 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wc_DrawingA.c
  5. * RCS:          $Header: wc_DrawingA.c,v 1.3 91/03/14 03:14:34 mayer Exp $
  6. * Description:  XM_DRAWING_AREA_WIDGET_CLASS
  7. * Author:       Niels Mayer, HPLabs
  8. * Created:      Fri Oct 27 22:22:38 1989
  9. * Modified:     Thu Oct  3 23:56:32 1991 (Niels Mayer) mayer@hplnpm
  10. * Language:     C
  11. * Package:      N/A
  12. * Status:       X11r5 contrib tape release
  13. *
  14. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. *
  17. * Permission to use, copy, modify, distribute, and sell this software and its
  18. * documentation for any purpose is hereby granted without fee, provided that
  19. * the above copyright notice appear in all copies and that both that
  20. * copyright notice and this permission notice appear in supporting
  21. * documentation, and that the name of Hewlett-Packard and David Betz not be
  22. * used in advertising or publicity pertaining to distribution of the software
  23. * without specific, written prior permission.  Hewlett-Packard and David Betz
  24. * make no representations about the suitability of this software for any
  25. * purpose. It is provided "as is" without express or implied warranty.
  26. *
  27. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  28. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  29. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  30. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  31. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  32. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  33. * PERFORMANCE OF THIS SOFTWARE.
  34. *
  35. * See ./winterp/COPYRIGHT for information on contacting the authors.
  36. * 
  37. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  38. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  39. *
  40. ********************************************************************************
  41. */
  42. static char rcs_identity[] = "@(#)$Header: wc_DrawingA.c,v 1.3 91/03/14 03:14:34 mayer Exp $";
  43.  
  44. #include <stdio.h>
  45. #include <Xm/Xm.h>
  46. #include <Xm/DrawingA.h>
  47. #include "winterp.h"
  48. #include "user_prefs.h"
  49. #include "xlisp/xlisp.h"
  50. #include "w_funtab.h"
  51.  
  52.  
  53. /******************************************************************************
  54.  * typedef struct
  55.  * {
  56.  *     int     reason;
  57.  *     XEvent  *event;
  58.  *     Window  window;
  59.  * } XmDrawingAreaCallbackStruct;
  60.  ******************************************************************************/
  61. static void Lexical_Bindings_For_XmDrawingAreaCallbackStruct(bindings_list, lexical_env, cd, o_widget)
  62.      LVAL bindings_list;    /* a list of symbols to which values from XmDrawingAreaCallbackStruct are bound */
  63.      LVAL lexical_env;        
  64.      XmDrawingAreaCallbackStruct* cd;
  65.      LVAL o_widget;        /* XLTYPE_WIDGETOBJ */
  66. {
  67.   extern LVAL s_CALLBACK_WIDGET, s_CALLBACK_REASON, s_CALLBACK_XEVENT, s_CALLBACK_WINDOW; /* w_callbacks.c */
  68.   extern LVAL Wcb_Get_Callback_Reason_Symbol();    /* w_callbacks.c */
  69.   register LVAL s_bindname;
  70.  
  71.   for ( ; consp(bindings_list); bindings_list = cdr(bindings_list)) {
  72.  
  73.     s_bindname = car(bindings_list);
  74.  
  75.     if (s_bindname == s_CALLBACK_WIDGET) {
  76.       xlpbind(s_bindname, o_widget, lexical_env);
  77.     }
  78.     else if (s_bindname == s_CALLBACK_REASON) {
  79.       xlpbind(s_bindname, Wcb_Get_Callback_Reason_Symbol(cd->reason), lexical_env);
  80.     }
  81.     else if (s_bindname == s_CALLBACK_XEVENT) {
  82.       xlpbind(s_bindname, (cd->event) ? cv_xevent(cd->event) : NIL, lexical_env);
  83.     }
  84.     else if (s_bindname == s_CALLBACK_WINDOW) {
  85.       xlpbind(s_bindname, (cd->window) ? cv_window(cd->window) : NIL, lexical_env);
  86.     }
  87.     else {
  88.       extern char temptext[];    /* from winterp.c */
  89.       sprintf(temptext,
  90.           "Unknown binding name in XmDrawingAreaCallbackStruct callback evaluator. Valid symbols are [%s %s %s %s].",
  91.           (char*) getstring(getpname(s_CALLBACK_WIDGET)),
  92.           (char*) getstring(getpname(s_CALLBACK_REASON)),
  93.           (char*) getstring(getpname(s_CALLBACK_XEVENT)),
  94.           (char*) getstring(getpname(s_CALLBACK_WINDOW)));
  95.       xlerror(temptext, s_bindname);
  96.     }
  97.   }
  98. }
  99.  
  100.  
  101. /******************************************************************************
  102.  * This is called indirectly via XtAddCallback() for callbacks returning
  103.  * an XmDrawingAreaCallbackStruct as call_data.
  104.  ******************************************************************************/
  105. static void XmDrawingAreaCallbackStruct_Callbackproc(widget, client_data, call_data)
  106.      Widget    widget;
  107.      XtPointer client_data;
  108.      XtPointer call_data;
  109. {
  110.   extern void Wcb_Meta_Callbackproc(); /* w_callbacks.c */
  111.  
  112.   Wcb_Meta_Callbackproc(client_data, call_data,
  113.             Lexical_Bindings_For_XmDrawingAreaCallbackStruct,
  114.             NULL);
  115. }
  116.  
  117.  
  118. /******************************************************************************
  119.  * Same as WIDGET_CLASS's :add_callback method except that this understands
  120.  * how to get values from the XmDrawingAreaCallbackStruct.
  121.  * Specifying one or more of the following symbols in the callback bindings 
  122.  * list will bind that symbol's value in the lexical environment of the callback:
  123.  * CALLBACK_WIDGET
  124.  * CALLBACK_REASON
  125.  * CALLBACK_XEVENT
  126.  * CALLBACK_WINDOW
  127.  ******************************************************************************/
  128. LVAL Xm_Drawing_Area_Widget_Class_Method_ADD_CALLBACK()
  129. {
  130.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  131.   return (Wcb_Meta_Method_Add_Callback(XmDrawingAreaCallbackStruct_Callbackproc, FALSE));
  132. }
  133.  
  134.  
  135. /******************************************************************************
  136.  * Same as WIDGET_CLASS's :set_callback method except that this understands
  137.  * how to get values from the XmDrawingAreaCallbackStruct.
  138.  * Specifying one or more of the following symbols in the callback bindings 
  139.  * list will bind that symbol's value in the lexical environment of the callback:
  140.  * CALLBACK_WIDGET
  141.  * CALLBACK_REASON
  142.  * CALLBACK_XEVENT
  143.  * CALLBACK_WINDOW
  144.  ******************************************************************************/
  145. LVAL Xm_Drawing_Area_Widget_Class_Method_SET_CALLBACK()
  146. {
  147.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  148.   return (Wcb_Meta_Method_Add_Callback(XmDrawingAreaCallbackStruct_Callbackproc, TRUE));
  149. }
  150.  
  151.  
  152. /******************************************************************************
  153.  *
  154.  ******************************************************************************/
  155. Wc_DrawingA_Init()
  156. {
  157.   LVAL o_XM_DRAWING_AREA_WIDGET_CLASS;
  158.   extern LVAL Wcls_Create_Subclass_Of_WIDGET_CLASS(); /* w_classes.c */
  159.   extern      xladdmsg();    /* from xlobj.c */
  160.  
  161.   o_XM_DRAWING_AREA_WIDGET_CLASS =
  162.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_DRAWING_AREA_WIDGET_CLASS",
  163.                      xmDrawingAreaWidgetClass);
  164.   
  165.   xladdmsg(o_XM_DRAWING_AREA_WIDGET_CLASS, ":ADD_CALLBACK",
  166.            FTAB_Xm_Drawing_Area_Widget_Class_Method_ADD_CALLBACK);
  167.  
  168.   xladdmsg(o_XM_DRAWING_AREA_WIDGET_CLASS, ":SET_CALLBACK",
  169.            FTAB_Xm_Drawing_Area_Widget_Class_Method_SET_CALLBACK);
  170. }
  171.